home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 131 / 131.d81 / b.menubox demo (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  63 lines
  1. 100 poke56,32:clr:dv=peek(186):ifdv<8thendv=8
  2. 110 poke53280,0:poke53281,0
  3. 120 sys57812"menubox 9000",dv,0:poke780,0:poke781,0:poke782,144:sys65493
  4. 130 sys57812"font",dv,0:poke780,0:poke781,0:poke782,32:sys65493
  5. 140 dimc(15,2):fori=0to15:readc(i,0):next:print"[147]"
  6. 150 fori=0to15:readc(i,1):next
  7. 160 fori=0to15:readc(i,2):next:sys36864+39,10241
  8. 170 fori=1to5:reada$:sys36864+42,a$,i,0:next
  9. 180 sys57812"tiles",dv,0:poke780,0:sys36864+12:sys65493
  10. 190 sys36864+27,"text",dv,32768
  11. 200 poke53272,24:
  12. 210 lattice=36864:block=36867:box=36870:copy=36873:goto370
  13. 220 gosub510
  14. 230 poke214,24:poke211,2:sys58732
  15. 240 print" [211][208][193][195][197] [146][159] - [206]ext  [195] [146][159] - [195]olor  [209] [146] [159]- [209]uit"
  16. 250 geta$:ifa$<>" "anda$<>"q"anda$<>"c"then250
  17. 260 ifa$="c"then300
  18. 270 ifa$="q"thenreturn
  19. 280 t1%=rnd(0)*137
  20. 290 t2%=rnd(0)*137
  21. 300 c1%=rnd(0)*15+1
  22. 310 i=rnd(0)*3
  23. 320 c2%=c(c1%,i)
  24. 330 syscopy,8192,t1%,105:sysblock,0,39,1,1,32,0
  25. 340 print"        [212]ile 1 ="t1%" [212]ile 2 ="t2%
  26. 350 syscopy,8192,t2%,95
  27. 360 syslattice,1,38,3,22,95,105,c1%,c2%:goto250
  28. 370 sysblock,0,39,24,24,32,0:gosub510
  29. 380 sysblock,5,34,7,13,255,2:sysblock,6,35,6,12,160,14:sysbox,6,35,6,12,7
  30. 390 sys36864+39,10241:sys36864+57,7,34,7,11,1,14,1,14,1,5,0
  31. 400 onf%gosub410,450,220,490,620:goto370
  32. 410 sys36864+54,"$:*",dv,3*4096:f=f%-1
  33. 420 sysblock,2,36,5,18,255,2:sysbox,3,37,4,17,7:sysblock,4,36,16,16,32,0
  34. 430 poke214,16:poke211,4:sys58732:print"[153] [195][210][211][210]/[210][197][212][213][210][206]: [212]oggle  [211][208][193][195][197]: [197]xit"
  35. 440 sys36864+60,4,5,15,1,3,1,7,1:return
  36. 450 sysblock,0,39,13,16,160,14:poke214,14:poke211,1:sys58732
  37. 460 print"[154][195][210][211][210]-[213][208]/[196][207][215][206] - [211][195][210][207][204][204]  [198]1/[198]7 - [211][195][210][207][204][204]"
  38. 470 print"[200][207][205][197]/[195][204][210] - [212][207][208]/[194][207][212][212][207][205]  [210][197][212][213][210][206] - [197][216][201][212]
  39. 480 [158]36864[170]48,32768:l[178]f%[171]1:[158]36864[170]57,0,39,2,12,1,3,1,3,0,l,0:[142]
  40. 490 [128]
  41. 500 [128]
  42. 510 [129]i[178]1[164]10:[158]box,10[171]i,29[170]i,12[171]i,13[170]i,5:[130]
  43. 520 [158]lattice,1,38,3,22,95,105,10,2
  44. 530 [153]"print        (NULL) val (NULL) (NULL)  close(NULL) (NULL) (NULL) (NULL)closepeekclose(NULL) (NULL)       "
  45. 540 [158]block,1,38,0,0,100,1:[142]
  46. 550 [128]
  47. 560 [131]00,15,10,14,10,03,14,05,09,10,08,12,14,03,05,03
  48. 570 [131]00,12,08,05,08,06,12,13,02,08,04,15,11,07,11,12
  49. 580 [131]00,11,04,06,06,13,04,03,07,07,07,01,01,15,01,14
  50. 590 [131]"(NULL)ee atn ascile (NULL)equestor","(NULL)se (NULL)enu atns (NULL)eader","(NULL)ee (NULL)iles right$n atnction"
  51. 600 [131]"(NULL)uit (NULL)o peekasic","(NULL)uit (NULL)o (NULL)(NULL)atnstr$(NULL)(NULL)atn(NULL)"
  52. 610 [144]
  53. 620 [129]i[178]0[164]21:[151]828[170]i,8[170]i:[130]
  54. 630 [139]dv[179]8[176]dv[177]29[176]dv[178]8[167]650
  55. 640 a[178][194](828):b[178][194](828[170]dv[171]8):[151]828,b:[151]828[170]dv[171]8,a
  56. 650 a$[178]"hello connect":[129]j[178]8[164]29:i[178][194](828[170]j[171]8):[139]i[178]14[167][130]
  57. 660 [160]2:[159]2,i,2:[160]2:[139]st[167]680
  58. 670 [160]15:[159]15,i,15,"r0:"[170]a$[170]"="[170]a$:[132]15,er:[160]15:[139]er[178]63[167]690
  59. 680 [130]:[153]"load":[151]53272,23:[151]186,8:[128]
  60. 690 q$[178][199](34):[151]646,[194](53281):[153]"load":[151]53272,23
  61. 700 [153]"loadp(NULL)2048,0:p(NULL)44,8:p(NULL)43,1:p(NULL)56,160:p(NULL)55,0:clr:l(NULL)"q$a$q$","i
  62. 710 [153]"run:":[151]631,13:[151]632,13:[151]198,2:[128]
  63.